(build-mail-abbrevs): Do substitute-in-file-name on the abbrev, for `source'.

diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el
index 2768da1533792adffa48001befe03231c737c57a..b2e7429147cc61876ebb7af159a272d7d114d844 100644 (file)
--- a/lisp/mail/mailabbrev.el
+++ b/lisp/mail/mailabbrev.el
@@ -202,7 +202,8 @@ no aliases, which is represented by this being a table with no entries.)")
                (progn
                  (end-of-line)
                  (build-mail-abbrevs
-                  (buffer-substring (match-beginning 1) (match-end 1)) t))
+                  (substitute-in-file-name
+                   (buffer-substring (match-beginning 1) (match-end 1)) t)))
              (re-search-forward "[ \t]+\\([^ \t\n]+\\)")
              (let* ((name (buffer-substring
                            (match-beginning 1) (match-end 1)))